home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / wclass21.zip / DELPHI1.SCT < prev    next >
Text File  |  1995-03-02  |  3KB  |  86 lines
  1.  
  2. unit CLASS_FILENAME;
  3.  
  4. interface
  5.             {if required insert ; at end of uses statement }
  6. [NO_RETURN NO_REPEAT uses INCLUDE_FILE ,DELETE_LAST_SYMBOL] 
  7.  
  8. type
  9. CLASS = class [(BASE_CLASS)]
  10.  
  11. private
  12. [ ATTRIBUTE_ACCESS ATTRIBUTE_NAME : ATTRIBUTE_TYPE ; ]
  13. [ ASSOCIATION_ONE_NAME : ASSOCIATION_ONE_CLASS ; ]
  14. [ AGGREGATION_ONE_NAME : AGGREGATION_ONE_CLASS ; ]
  15. [ ASSOCIATION_MANY_NAME : array LITERAL_SYMBOL[1..10 LITERAL_SYMBOL] of ASSOCIATION_MANY_CLASS ; ]
  16. [ AGGREGATION_MANY_NAME : array LITERAL_SYMBOL[1..10 LITERAL_SYMBOL] of AGGREGATION_MANY_CLASS ; ]
  17.  
  18. public
  19.             {Update to initialize ancestor fields.}
  20.   constructor DefaultInit;
  21.  
  22.             {Update to initialize ancestor fields.}
  23.   constructor Init ( [a$ATTRIBUTE_NAME : ATTRIBUTE_TYPE DELETE_LAST_SYMBOL;] NO_RETURN);
  24.  
  25.   destructor Done; virtual;
  26.  
  27. [ function Get$ATTRIBUTE_NAME : ATTRIBUTE_TYPE; ]{Accessor Get Function }
  28.  
  29. [  procedure Set$ATTRIBUTE_NAME ( a$ATTRIBUTE_NAME : ATTRIBUTE_TYPE ); ]{Accessor Set Procedure }
  30.  
  31. [                       { create function with return if required. }
  32.   procedure OPERATION_NAME PASCAL_OPERATION_PARAMETERS_WITH_VAR ; PASCAL_OPERATION_VIRTUAL  
  33. ]
  34.   
  35. end;
  36.  
  37. implementation
  38.  
  39. {-----------------------------------------------------------------------------------------------}
  40.             {Update to initialize ancestor fields.}
  41. constructor CLASS$.DefaultInit;
  42. begin
  43.   [ATTRIBUTE_NAME := ATTRIBUTE_INITIAL_VALUE; ]
  44. end; 
  45.  
  46. {-----------------------------------------------------------------------------------------------}
  47.             {Update to initialize ancestor fields.}
  48. constructor CLASS$.Init ( [a$ATTRIBUTE_NAME : ATTRIBUTE_TYPE  DELETE_LAST_SYMBOL;] NO_RETURN);
  49. begin
  50.   [ATTRIBUTE_NAME := a$ATTRIBUTE_NAME;]
  51. end;
  52.  
  53. {-----------------------------------------------------------------------------------------------}
  54.             {Update as required.}
  55. destructor CLASS$.Done;
  56. begin
  57. end;
  58.  
  59. [{-----------------------------------------------------------------------------------------------}
  60.             {Accessor Get Function }
  61. function CLASS.Get$ATTRIBUTE_NAME : ATTRIBUTE_TYPE;
  62. begin
  63.   Get$ATTRIBUTE_NAME := ATTRIBUTE_NAME;
  64. end;
  65. ]
  66. [{-----------------------------------------------------------------------------------------------}
  67.             {Accessor Set Procedure }
  68. procedure CLASS.Set$ATTRIBUTE_NAME ( a$ATTRIBUTE_NAME : ATTRIBUTE_TYPE ); 
  69. begin
  70.   ATTRIBUTE_NAME := a$ATTRIBUTE_NAME;
  71. end; 
  72. ]  
  73. [{-----------------------------------------------------------------------------------------------}
  74.             { create function with return if required.}
  75. procedure CLASS.OPERATION_NAME PASCAL_OPERATION_PARAMETERS_WITH_VAR ; 
  76. begin
  77. end;    
  78. ]
  79.  
  80. end.
  81.  
  82.  
  83.  
  84.  
  85.  
  86.